home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Visual Basic Source Code
/
Visual Basic Source Code.iso
/
vbsource
/
mymp3p1a
/
coven.frm
< prev
next >
Wrap
Text File
|
1999-07-08
|
20KB
|
691 lines
VERSION 5.00
Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.1#0"; "COMDLG32.OCX"
Object = "{22D6F304-B0F6-11D0-94AB-0080C74C7E95}#1.0#0"; "MSDXM.OCX"
Begin VB.Form Form1
AutoRedraw = -1 'True
BorderStyle = 0 'None
Caption = "CoVeN Mp3 Player "
ClientHeight = 2055
ClientLeft = 0
ClientTop = 0
ClientWidth = 4200
Icon = "coven.frx":0000
LinkTopic = "Form1"
Picture = "coven.frx":0442
ScaleHeight = 2055
ScaleWidth = 4200
StartUpPosition = 3 'Windows Default
Begin MediaPlayerCtl.MediaPlayer am1
Height = 615
Left = 720
TabIndex = 19
Top = 2880
Width = 735
AudioStream = -1
AutoSize = 0 'False
AutoStart = -1 'True
AnimationAtStart= -1 'True
AllowScan = -1 'True
AllowChangeDisplaySize= -1 'True
AutoRewind = -1 'True
Balance = 30
BaseURL = ""
BufferingTime = 5
CaptioningID = ""
ClickToPlay = -1 'True
CursorType = 0
CurrentPosition = -1
CurrentMarker = 0
DefaultFrame = ""
DisplayBackColor= 0
DisplayForeColor= 16777215
DisplayMode = 0
DisplaySize = 4
Enabled = -1 'True
EnableContextMenu= -1 'True
EnablePositionControls= -1 'True
EnableFullScreenControls= 0 'False
EnableTracker = -1 'True
Filename = ""
InvokeURLs = -1 'True
Language = -1
Mute = 0 'False
PlayCount = 1
PreviewMode = 0 'False
Rate = 1
SAMILang = ""
SAMIStyle = ""
SAMIFileName = ""
SelectionStart = -1
SelectionEnd = -1
SendOpenStateChangeEvents= -1 'True
SendWarningEvents= -1 'True
SendErrorEvents = -1 'True
SendKeyboardEvents= 0 'False
SendMouseClickEvents= 0 'False
SendMouseMoveEvents= 0 'False
SendPlayStateChangeEvents= -1 'True
ShowCaptioning = 0 'False
ShowControls = -1 'True
ShowAudioControls= -1 'True
ShowDisplay = 0 'False
ShowGotoBar = 0 'False
ShowPositionControls= -1 'True
ShowStatusBar = 0 'False
ShowTracker = -1 'True
TransparentAtStart= 0 'False
VideoBorderWidth= 0
VideoBorderColor= 0
VideoBorder3D = 0 'False
Volume = -480
WindowlessVideo = 0 'False
End
Begin VB.PictureBox Picture11
AutoRedraw = -1 'True
AutoSize = -1 'True
Height = 270
Left = 2760
Picture = "coven.frx":1C832
ScaleHeight = 210
ScaleWidth = 630
TabIndex = 18
Top = 3720
Width = 690
End
Begin VB.Timer Timer2
Interval = 1
Left = 240
Top = 3480
End
Begin VB.PictureBox Picture10
AutoRedraw = -1 'True
AutoSize = -1 'True
Height = 495
Left = 1440
Picture = "coven.frx":1CF76
ScaleHeight = 435
ScaleWidth = 930
TabIndex = 17
Top = 3600
Width = 990
End
Begin VB.PictureBox Picture9
AutoRedraw = -1 'True
AutoSize = -1 'True
BorderStyle = 0 'None
Height = 440
Left = 2880
ScaleHeight = 29
ScaleMode = 3 'Pixel
ScaleWidth = 33
TabIndex = 16
Top = 1320
Width = 495
End
Begin VB.Timer Timer3
Interval = 1
Left = 2880
Top = 3000
End
Begin VB.PictureBox Picture8
AutoRedraw = -1 'True
AutoSize = -1 'True
BorderStyle = 0 'None
Height = 440
Left = 3360
ScaleHeight = 29
ScaleMode = 3 'Pixel
ScaleWidth = 33
TabIndex = 15
Top = 1320
Width = 495
End
Begin VB.PictureBox Picture7
AutoRedraw = -1 'True
AutoSize = -1 'True
BorderStyle = 0 'None
Height = 440
Left = 2280
ScaleHeight = 29
ScaleMode = 3 'Pixel
ScaleWidth = 33
TabIndex = 14
Top = 1320
Width = 495
End
Begin VB.PictureBox Picture6
AutoRedraw = -1 'True
AutoSize = -1 'True
BorderStyle = 0 'None
Height = 440
Left = 360
ScaleHeight = 29
ScaleMode = 3 'Pixel
ScaleWidth = 33
TabIndex = 13
Top = 1320
Width = 495
End
Begin VB.PictureBox Picture5
AutoRedraw = -1 'True
AutoSize = -1 'True
BorderStyle = 0 'None
Height = 440
Left = 840
ScaleHeight = 29
ScaleMode = 3 'Pixel
ScaleWidth = 33
TabIndex = 12
Top = 1320
Width = 495
End
Begin VB.PictureBox Picture4
AutoRedraw = -1 'True
AutoSize = -1 'True
BorderStyle = 0 'None
Height = 440
Left = 1800
ScaleHeight = 29
ScaleMode = 3 'Pixel
ScaleWidth = 33
TabIndex = 11
Top = 1320
Width = 495
End
Begin VB.PictureBox Picture3
AutoRedraw = -1 'True
AutoSize = -1 'True
BorderStyle = 0 'None
Height = 440
Left = 1320
ScaleHeight = 29
ScaleMode = 3 'Pixel
ScaleWidth = 33
TabIndex = 10
Top = 1320
Width = 495
End
Begin VB.PictureBox Picture2
AutoRedraw = -1 'True
AutoSize = -1 'True
Height = 495
Left = 0
Picture = "coven.frx":1E506
ScaleHeight = 29
ScaleMode = 3 'Pixel
ScaleWidth = 372
TabIndex = 9
Top = 2160
Width = 5640
End
Begin VB.HScrollBar HScroll2
Height = 135
LargeChange = 100
Left = 2400
Max = 5000
Min = -5000
SmallChange = 50
TabIndex = 2
Top = 840
Width = 1455
End
Begin VB.HScrollBar HScroll1
Height = 135
LargeChange = 10
Left = 360
Max = 2500
SmallChange = 10
TabIndex = 1
Top = 840
Value = 2500
Width = 1455
End
Begin VB.Timer Timer1
Interval = 1
Left = 4320
Top = 960
End
Begin VB.PictureBox Picture1
AutoRedraw = -1 'True
BackColor = &H00000000&
BorderStyle = 0 'None
Height = 225
Left = 360
ScaleHeight = 15
ScaleMode = 3 'Pixel
ScaleWidth = 2